home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / text 83-2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  17KB  |  573 lines
  1. 1 REM TEXTEDITOR TEXT 83-2
  2. 2 PRINT"[144][147])[191]E[146][218])?E[146][219]%[146][186]E[146][223]%[146][187]E[146][160]%[146][219][201][196]P[146]A[160])[146]F[165][223]E[146][223]P[146]B[166][146][160] [146]D1[146][223]E[146]";
  3. 3 PRINT"BH1[146][223][176][164][146][198]B*[198]B*Q[146][218]H[208][177][146]X%[146][218][169]CE[146][218])[146]DP[215][166][146][219]XP[210]":SYS 256*PEEK(648):
  4. 4 REMH/0C*@!"W!V9*4!"X*<H!V(,@,WK!@J&82X;4@AE@*@XR(AD*@A!@JAU@J<TB2@[,ARE$@)N
  5. 5 REM@BZTJR2Q49ZD$V2$439MX9VG42*J1!XH*<!"V(@4,V2$4@9EVBB5BBDVV24P@9VW!@&$R"*D
  6. 6 REM)@$&WZ*0:4@A9X)RV462)@B*A!@Z+@7"J?#"@7*JN#FH4*3H#"@!+D4(BH#"D4*"<#II@*08
  7. 7 [143]#I@/*@!"*!*:*:#&@@*^0#@K@V*2$S41?+@87B@+#@7"*E#*F4*BA#"H@+DZ4J7K#D4(*2#&
  8. 8 REMI@*^<#I+@* ;#@@'*)#"@@X<H.0LS )L!5R,)&2&@<A0ZS2A<"R$&R*B@!?IHF0MBI?UBI?U
  9. 9 REM!?F(*1Y"*Y*+Y?!&?(@P+H4(JC!.@+!Y@BBUBBAV@$)[H/0C,?J*<)*EDARARRRU!@,&)I*)
  10. 10 [143]A@$&)2N )?:*@!?*,@1E?,?ZJC)-*LAPBBBUB!@Y,)I**A@Y$)2(0B$@0H100)*9R?!.*D@S
  11. 11 [143]SE0A9)4\@9*TF))JZB!")$@!9))V*23K,@SLE04DA))[2:$ ]H/ 0(@0!V*F7!V;*P!"W*8:
  12. 12 [143]!X9!V,W;$V2$4>9IX4<C&$VI24>C9V4\=H100*2;!V*.J!WK*3!"X9VG,W$.V24P>9X$)X2"
  13. 13 [143]4$;C+H4(JC!.@+!Y@BBUBBAV@(0P$V2$4>*N0!)K*3!.**@H!)**?!)Y*C!.*Z*PZ*ZDFX)B
  14. 14 [143]52H8$H2FX,@CJ/X,2 , @J7;X2(H$D2B0,@C:OX,: 2"_4@1*_X$*ZZP"2GZ4@SL\02Z'<P!
  15. 15 [143]2E< /2%X<.2FC4@#S\0G2#4(@S\102#9<V2FC<WP2D<$W2$9<X2J$4@#SI0O2D4(@SS302$;
  16. 16 [143]<U2FD4@3SD0GSG9K)*D$A*C;!*S$E0)F)4A!))2&8<FAN))J:B!"),@!1)NT)):.@!)+,@1E
  17. 17 REM**<H!*S$E0*F@!*J<A*BA!*JSE0A*@!&*4A0*@!"*SE00*8X!V*.@!VI$V2$4>9MV4=3*3!"
  18. 18 REMV+H:4JCK!@+&!@BUBBBUA@$&V24P>9V7)V8\4$<C*@!")!)+*3!"**8H!)*&C!*9SE0A))2&
  19. 19 REM8$(#4A)F)2P($E)N):P(!))*):@Z!)N$)):.J!)K,@1E*SE@0))Y2?$$@S'30))*ZP!"))))
  20. 20 [143]Z@!*)F)R)ZJ8!)$,@9*TSE0A))!.V)*XJ@!.V)V;4BNH*J9"V<@Q,C)JVN:RJ!VI,:1EVD91
  21. 21 REMFRYB)!);$@9E*ZBAIVB]IVB]IVF\Y)!*))))YV!.)*C[!*S$#0^X)@J*>!@*X)@JBA!&@VX 
  22. 22 POKE53280,9:POKE53281,0
  23. 23 DIM LV(8):DIMA$(300):DIMKF$(10):POKE53265,PEEK(53265) AND239
  24. 24 PRINTCHR$(14):CP=0:TY=1:GL=1:GR=0:PRINT"[147]"
  25. 25 PRINT" [155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  26. 26 PRINT" [155] * * * * * [212][197][216][212][214][197][210][193][210][194][197][201][212][213][206][199] * * * * * [146]"
  27. 27 PRINTCHR$(14):GR=0:KO=0
  28. 28 FORX=1TO9:PRINT"[152]                        [146]":NEXT:POKE53265,PEEK(53265) OR16
  29. 29 INPUT"[203]OMMA ZULASSEN[J/N][146]     J[157][157][157]";KO$:IFKO$="J"THENKO=1
  30. 30 INPUT" [199] [146]RAFIK[152]  ODER  [212] [146]EXT    [212][157][157][157]";GR$
  31. 31 INPUT"[196]ATUM [212][212].[205][205].[202][202][202][202][146]     [164][157][157][157]";IO$
  32. 32 IFGR$="G"THENGR=1
  33. 33 PRINT"[147]"CHR$(14):S=1
  34. 34 GOTO301
  35. 35 SYS49152:POKE53280,2:AK=1
  36. 36 REM ***     "[197][196][201][212][207][210]"      ***
  37. 37 REM          ------
  38. 38 REM "A$(X)=[218]EILE X"
  39. 39 REM "EG$  =EINGELESENES [218]EICHEN"
  40. 40 REM "B$   =AKTUELLER [215]ERT DER [218]EILE"
  41. 41 REM "X    =[218]AEHLVARIABLE F. [218]EILE"
  42. 42 REM "LEFT$=LINK.[212]EIL BEI [193]ENDERUNG"
  43. 43 REM "RIGHT=RECH.[212]EIL BEI [193]ENDERUNG"
  44. 44 REM"[208]OS  =[218]AEHLVARI.FUER LEFT$"
  45. 45 REM
  46. 46 REM--------------------------------
  47. 47 C$=" ":E=60:F=1:H=1:R=1:U=1:V=1:N=1:M=77:K=1:AB=1:KC=1:J=78:LC=0:DX=0
  48. 48 PRINT"[147]":POKE53280,2:IFDX=1THENGOTO302
  49. 49 GOSUB192
  50. 50 PRINT" "LF$" [146]":PRINT" [153] [211]EITE: [146] [155]"R"  [218]EILEN: [146] "AB" BIS "AB+17
  51. 51 IFLC=0THENPRINT:GOTO57
  52. 52 PRINT""
  53. 53 IFAB>1THENPRINT
  54. 54 FORPM=HTOKC:PRINTA$(PM)"_":F=F+1-GR
  55. 55 IFF=20THENF=1:GOSUB192
  56. 56 NEXTPM
  57. 57 LC=0
  58. 58 FORN=ABTOE:V=LEN(A$(N))+U:W=M:P=0:F=F+1-GR:PRINTC$A$(N)"[170] [157][157]";
  59. 59 FORL=VTOM:
  60. 60 GETEG$:IFEG$=""THENPRINT"     [157][157][157][157][157][167]    [157][157][157][157][157]";:GOTO60
  61. 61 :
  62. 62 IFASC(EG$)=137THENM=M-1:C$=C$+" ":K=K+1:GOTO 206
  63. 63 IFASC(EG$)=138THENM=M+1:K=K-1:C$=LEFT$(C$,ABS(K)):GOTO 206
  64. 64 IFASC(EG$)=139THENJ=J-1:M=M-1:GOTO 206
  65. 65 IFASC(EG$)=140THENJ=J+1:M=M+1:GOTO 206
  66. 66 IFKO=0 AND EG$=","THENEG$="."
  67. 67 EG=ASC(EG$)
  68. 68 IFEG=13THENW=0:L=M:PRINT"_":GOTO76
  69. 69 IFEG=20ANDP>0THENP=P-1:B$=LEFT$(B$,P):EG$="":PRINT"[157]";:L=L-2:P=P-1:GOTO74
  70. 70 IFEG=133THENF=1:LC=1:AB=N:KC=N-1:GOTO301
  71. 71 IFEG=134THENF=1:LC=1:AB=N:KC=N-1:GOTO225
  72. 72 IFEG=135THENF=1:LC=1:AB=N:KC=N-1:GOTO117
  73. 73 B$=B$+EG$
  74. 74 PRINT"[155]"EG$"[170] [157][157]";:EG$=""
  75. 75 Q=L:LC=1
  76. 76 P=P+1:NEXTL
  77. 77 PRINT"_[155]":A$(N)=C$+A$(N)+B$:B$=""
  78. 78 IFW<M THENV=1:GOTO93
  79. 79 IFLEFT$(RIGHT$(A$(N),2),1)=RIGHT$(A$(N),1)THENPRINT:GOTO93
  80. 80 IF RIGHT$(A$(N),1)="."THENPRINT:GOTO93
  81. 81 IF RIGHT$(A$(N),1)=":"THENPRINT:GOTO93
  82. 82 IF RIGHT$(A$(N),1)=";"THENPRINT:GOTO93
  83. 83 IF RIGHT$(A$(N),1)="!"THENPRINT:GOTO93
  84. 84 IF RIGHT$(A$(N),1)="?"THENPRINT:GOTO93
  85. 85 IF RIGHT$(A$(N),1)=CHR$(32)THENPRINT:PRINT:GOTO93
  86. 86 IF RIGHT$(A$(N),1)="-"THENPRINT:GOTO93
  87. 87 PRINT"[145]"
  88. 88 L$=A$(N):G=LEN(L$)-1
  89. 89 IF RIGHT$(A$(N),1)=CHR$(32)THENGOTO92
  90. 90 A$(N+1)=RIGHT$(A$(N),1)+A$(N+1):A$(N)=LEFT$(A$(N),G):G=G-1:IFG=-1THENGOTO92
  91. 91 PRINT"[145]"TAB(G+1)" ":GOTO88
  92. 92 PRINT
  93. 93 IFF=20THENF=1:AB=N+1:KC=N:H=H+20:GOTO48
  94. 94 PRINT"[145][145]":NEXT
  95. 95 POKE198,0:IFN>299THENGOTO109
  96. 96 PRINT"[155]              [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][155]               [175][146]"
  97. 97 PRINT"":FORX=1TO80:PRINT"-";:NEXT:PRINT"[145]"TAB(50)" [208][210][197][211][211] [198] 1 [146][155]"
  98. 98 GETEG$:IFEG$=""THENGOTO100
  99. 99 IFASC(EG$)=133THENGOTO105
  100. 100 EG$=""
  101. 101 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [197] N D E   D E R   [211] E I T E [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  102. 102 PRINT"              [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  103. 103 FORX=0TO350:NEXT
  104. 104 GOTO96
  105. 105 POKE198,0
  106. 106 AB=N:KC=N:H=R*60:F=1
  107. 107 R=R+1:E=E+60
  108. 108 GOTO48
  109. 109 :
  110. 110 PRINT"[147]"
  111. 111 SYS49339
  112. 112 PRINTCHR$(14);"[197]NDE DER [211]EITE [206]R.5":PRINT"<[196]RUECKE [198]1>"
  113. 113 GETEG$:IFEG$=""THENGOTO113
  114. 114 IFASC(EG$)<>133THENGOTO113
  115. 115 DX=1
  116. 116 GOTO304
  117. 117 SYS49339
  118. 118 PRINT"[147]";CHR$(14)
  119. 119 PRINT"[147]":C=1
  120. 120 PRINTTAB(18)"[196][201][211][203]"
  121. 121 PRINT""TAB(13)"  [196]ISKBEFEHL  [146]"
  122. 122 PRINT""TAB(13)"  [196]ISKINHALT  "
  123. 123 GETBB$:IFBB$=""THEN123
  124. 124 IFBB$=""THENC=2:GOTO128
  125. 125 IFBB$="[145]"THENC=1:GOTO121
  126. 126 IFASC(BB$)=13THEN131
  127. 127 GOTO123
  128. 128 PRINT""TAB(13)"  [196]ISKBEFEHL  "
  129. 129 PRINT""TAB(13)"  [196]ISKINHALT  [146]"
  130. 130 GOTO123
  131. 131 IFC=2THENGOTO160
  132. 132 PRINT""TAB(13)"   [204]OESCHEN    [146]"
  133. 133 PRINT""TAB(13)"  [198]ORMATIEREN  "
  134. 134 GETBB$:IFBB$=""THEN134
  135. 135 IFBB$=""THENC=2:GOTO139
  136. 136 IFBB$="[145]"THENC=1:GOTO132
  137. 137 IFASC(BB$)=13THEN142
  138. 138 GOTO134
  139. 139 PRINT""TAB(13)"   [204]OESCHEN    "
  140. 140 PRINT""TAB(13)"  [198]ORMATIEREN  [146]"
  141. 141 GOTO134
  142. 142 IFC=2THEN152
  143. 143 INPUT"[152] [206]AME ";F$
  144. 144 F$="S:"+F$
  145. 145 :
  146. 146 OPEN1,8,15
  147. 147 CLOSE1
  148. 148 IF(ST AND -128)<>0THEN PRINT" [196]ISKFEHLER[146][152]":POKE198,0:WAIT198,1:GOTO146
  149. 149 OPEN1,8,15,F$
  150. 150 CLOSE1
  151. 151 POKE198,0:PRINT"[147]":SYS49152:GOTO48
  152. 152 INPUT"[152] [206]AME ";F$:INPUT" [201][196] ";I$
  153. 153 F$="N:"+F$+","+I$
  154. 154 OPEN1,8,15
  155. 155 CLOSE1
  156. 156 IF(ST AND -128)<>0THEN PRINT" [196]ISKFEHLER[146][152]":POKE198,0:WAIT198,1:GOTO154
  157. 157 OPEN1,8,15,F$
  158. 158 CLOSE1
  159. 159 POKE198,0:PRINT"[147]":SYS49152:GOTO48
  160. 160 REM ***DIRECTORY***
  161. 161 PRINTCHR$(147):PRINT"[147][153][196]ISKETTENINHALT:"
  162. 162 PRINT"---------------"
  163. 163 PRINT"[152]":BA$="":BB$="":CC$="":CC=0
  164. 164 OPEN1,8,0,"$0"
  165. 165 GET#1,BA$:GET#1,BB$
  166. 166 GET#1,BA$:GET#1,BB$
  167. 167 GET#1,BA$:GET#1,BB$
  168. 168 IFBA$<>""THENCC=ASC(BA$)
  169. 169 IFBB$<>""THENCC=CC+ASC(BB$)*256
  170. 170 PRINT"[152]"MID$(STR$(CC),2);TAB(8);
  171. 171 GET#1,BB$:IFST<>0THEN179
  172. 172 IFBB$<>CHR$(34)THEN171
  173. 173 GET#1,BB$:IFBB$<>CHR$(34)THENPRINTBB$;:GOTO173
  174. 174 GET#1,BB$:IFBB$=CHR$(32)THEN174
  175. 175 PRINTTAB(30);:CC$=""
  176. 176 CC$=CC$+BB$:GET#1,BB$:IFBB$<>""THEN176
  177. 177 PRINT"["LEFT$(CC$,3)"]"
  178. 178 IFST=0THEN166
  179. 179 PRINT"[158][194][204][207][195][203][211] [198][210][197][197]":CLOSE1
  180. 180 POKE198,0:WAIT198,1:POKE198,0
  181. 181 PRINT"[147]":SYS49152:GOTO48
  182. 182 PRINT"[147]"
  183. 183 INPUT"[158][211]IND [211]IE SICHER  [J/N] ?    J[144][157][157][157]";GG$
  184. 184 IFGG$="N"THENPRINT"[147]":GOTO306
  185. 185 PRINT"[155][196]ATEI '"LF$
  186. 186 PRINT"WIRD GELOESCHT !":LF$=""
  187. 187 FORX=0TO300:A$(X)="":NEXT:TY=1:KR=0:GOTO24
  188. 188 PRINT"[145]"TAB(60)"12345678901234567890[145]"
  189. 189 IFJ>78THENJ=78:M=M-1
  190. 190 IF(J-1)<KTHENJ=K:M=M+1
  191. 191 PRINT"[145]"TAB(J)"[167][164]"
  192. 192 IFK<0THENK=0
  193. 193 PRINT"[152][147]":GOSUB218
  194. 194 IF(K+1)>JTHENK=K-1:F=F-1:M=M+1:C$=C$-" "
  195. 195 PRINT"[152]"TAB(0);
  196. 196 PRINT"123456789012345678901234567890123456789012345678901234567890"
  197. 197 PRINT"[145]"TAB(60)"12345678901234567890[145]"
  198. 198 IFJ>78THENJ=78:M=M-1
  199. 199 IF(J-1)<KTHENJ=K:M=M+1
  200. 200 PRINT"[145]"TAB(J)"[167][164]"
  201. 201 IFK<0THENK=0
  202. 202 PRINT""TAB(K-1)"[164][165]"
  203. 203 F=F+1:RETURN
  204. 204 FORL=1TON:PRINTA$(L):NEXT
  205. 205 PRINT"123456789012345678901234567890123456789012345678901234567890"
  206. 206 LC=1:EG$="":AB=N:KC=N-1:F=1:GOSUB218
  207. 207 IF(K+1)>JTHENK=K-1:M=M+1:C$=C$-" "
  208. 208 PRINT"[152]"TAB(0);
  209. 209 PRINT"123456789012345678901234567890123456789012345678901234567890"
  210. 210 PRINT"[145]"TAB(60)"1234567890123456789[145]"
  211. 211 IFJ>78THENJ=78:M=M-1
  212. 212 IF(J-1)<KTHENJ=K:M=M+1
  213. 213 PRINT""TAB(J)"[167][164]"
  214. 214 IFK<1THENK=1:M=M-1:C$=C$+" "
  215. 215 PRINT""TAB(K-1)"[164][165]"
  216. 216 GOTO50
  217. 217 REM
  218. 218 REM ***"[200][201][204][198][197][204][197][201][211][212][197]"***
  219. 219 REM
  220. 220 PRINTCHR$(14):PRINT""TAB(40)" * * *  [212] [197] [216] [212] [197] [196] [201] [212] [207] [210]  * * * "
  221. 221 :
  222. 222 PRINT" [154]      [198] 1 = [196][160][193][160][212][160][197][160][201]    [146][221]    [198][160]3 = [200] [201] [204] [198] [197]"
  223. 223 PRINT"[145]"TAB(46)"       [146][221]     [198] 5 = [196][160][201] [211][160][203]       [146][144]"
  224. 224 RETURN
  225. 225 SYS49339
  226. 226 PRINT"[147]";CHR$(14)
  227. 227 PRINT"[200]ILFE - [205]ENUE"
  228. 228 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
  229. 229 IFT=1THENPRINT"[153][198]2 - [198]4 - [212]ABULATOR LINKER [210]AND -->"
  230. 230 IFT=4THENPRINT"[153][198]4      - [212]EXT VERSCHIEBEN  -->"
  231. 231 IFT=1THENPRINT"[198]6 - [198]8 - [212]ABULATOR RECHTER [210]AND <--"
  232. 232 IFT=4THENPRINT"[198]6      - [212]EXT VERSCHIEBEN  <--"
  233. 233 PRINT"[198] 1     - [196]ATEI BEARBEITEN"
  234. 234 PRINT"[198] 5     - [196]ISKBEFEHL SENDEN"
  235. 235 :
  236. 236 PRINT" 1.@       - [194]REITSCHRIFT DRUCKEN"
  237. 237 PRINT" 2.?       - [194]REITSCHRIFT BEENDEN"
  238. 238 PRINT" 3.[195]OM + [212] - [213]NTERSTREICHEN"
  239. 239 PRINT" 4.[195]OM + + - [213]NTERSTREICHEN BEENDEN"
  240. 240 PRINT" 5.[195]OM + * - [198]ETTDRUCK"
  241. 241 PRINT" 6.[211]HIFT+\ - [198]ETTDRUCK BEENDEN"
  242. 242 PRINT" 7.[211]HIFT+5 - [150][206].[204].[209].[153]"
  243. 243 PRINT" 8.[211]HIFT+6 - [196]RAFT"
  244. 244 PRINT" 7.  _     - [212]IEFZEICHEN"
  245. 245 PRINT" 8.  ^     - [212]IEFZ. LOESCHEN"
  246. 246 PRINT"[154] [210]EIHENFOLGE DER [196]RUCKERCODES BEACHTEN![155]"
  247. 247 PRINT"[153] [201]M [199]RAFIKMODUS [206].[204].[209]. EINSTELLEN ![155]"
  248. 248 POKE198,0:WAIT198,1:POKE198,0
  249. 249 PRINT"[147]";CHR$(142):SYS49152
  250. 250 IFUI=3GOTO434
  251. 251 GOTO48
  252. 252 PRINTCHR$(14)
  253. 253 PRINT"[147][196]ATEINAME : "LF$
  254. 254 PRINT" [215]OLLEN [211]IE DEN [206]AMEN AENDERN  [J/N] ?"
  255. 255 GETS$:IFS$=""THEN255
  256. 256 IFS$="N"THENGOTO264
  257. 257 LF$="":PRINT" [198]ILENAME [^] [205]ENUE : [164]";
  258. 258 GETEG$:K=LEN(LF$):IFEG$=""THENGOTO258
  259. 259 IFEG$="^"THENGOTO302
  260. 260 IF(EG$=CHR$(20) ANDK>0)THENPRINT"[157][157]  [157][157][164]";:LF$=LEFT$(LF$,K-1):GOTO258
  261. 261 IFEG$=CHR$(20)THENGOTO258
  262. 262 IFEG$=CHR$(13)THENGOTO264
  263. 263 PRINT"[157]"EG$"[164]";:LF$=LF$+EG$:EG$="":IFLEN(LF$)<12THENGOTO258
  264. 264 L$=LF$+".TXT,S,W":K$=LF$+".TXT,S,R"
  265. 265 OPEN2,8,15
  266. 266 OPEN1,8,2,K$
  267. 267 INPUT#2,EN,E$,ET,ES:IFEN<>0THENCLOSE1:CLOSE2:GOTO269
  268. 268 PRINT:PRINT"[150][196]ATEI LOESCHEN ODER NEUEN [206]AMEN !":CLOSE1:CLOSE2:GOTO257
  269. 269 PRINT:PRINT"[196]ATEI '"LF$"' WIRD GESICHERT !":OPEN1,8,2,L$
  270. 270 PRINT#1,N:PRINT#1,E
  271. 271 FORO=1TO177
  272. 272 PRINT#1,A$(O)
  273. 273 NEXT
  274. 274 PRINT#1,"***":CLOSE1:GOTO302
  275. 275 PRINTCHR$(14)"[147][159]":IFTY>1THENPRINT" "TY"[157].[196]ATEI LADEN  [J/N] ? [146]":POKE198,0
  276. 276 IFTY=1THENGOTO279
  277. 277 GETEG$:IFEG$=""THENGOTO277
  278. 278 IF(EG$="N" ORTY=11)THENGOTO302
  279. 279 GOSUB567:PRINT">> [196][193][212][197][201]  LADEN <<"
  280. 280 PRINT"[155] [196]IRECTORY [$] [146]":PRINT" [205]ENUE     [^] [146]"
  281. 281 INPUT" [196]ATEINAME :";KF$(TY):LF$=LF$+" / ":IFTY=1THENLF$=""
  282. 282 IFKF$(TY)="^"THENKF$(TY)="":GOTO302
  283. 283 LF$=LF$+KF$(TY):M$=KF$(TY)+".TXT,S,R"
  284. 284 OPEN1,8,15
  285. 285 CLOSE1
  286. 286 IF(ST AND -128)=0THENGOTO289
  287. 287 IF(ST AND -128)<>0THENPRINT"[150] [198]LOPPY ANSCHALTEN ![146]"
  288. 288 PRINT"[153]   [196]RUECKE [212]ASTE  [146][155]":POKE198,0:WAIT198,1:POKE198,0:GOTO284
  289. 289 OPEN1,8,15:IFKF$(TY)="$"THENCLOSE1:GOTO545
  290. 290 K$="0:"+M$:OPEN2,8,2,K$:INPUT#1,EN,E$,ET,ES:IFEN=0THENCLOSE2:CLOSE1:GOTO292
  291. 291 CLOSE2:CLOSE1:PRINT"[150]"E$:GOTO281
  292. 292 PRINT" [204]OADING  --> [158]"KF$(TY):OPEN1,8,2,M$
  293. 293 INPUT#1,N:INPUT#1,E
  294. 294 FORO=GLTO300
  295. 295 INPUT#1,A$(O)
  296. 296 IFA$(O)="***"THENA$(O)="":GOTO300
  297. 297 A$(O)=C$+A$(O)
  298. 298 NEXT
  299. 299 IFGL+N>300THENPRINT"[150] [193]CHTUNG ! [211]PEICHER VOLL ![146]":CP=1:POKE198,0:WAIT198,1
  300. 300 CLOSE1:TY=TY+1:GL=GL+N:AB=N:KC=N-1:PRINT"[147]":GOTO302
  301. 301 REM MENUE
  302. 302 POKE198,0:POKE53265,PEEK(53265) AND239
  303. 303 SYS49339:AM=1:LV(AM)=1
  304. 304 PRINT"[147]"
  305. 305 :
  306. 306 PRINTCHR$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  307. 307 PRINT"[145][221] * * * * * TEXTEDITOR T83-2[146][144] * * * * * [221]"
  308. 308 PRINT"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  309. 309 PRINT"DATUM: ";IO$:PRINT" F1[165][167][223][146]"
  310. 310 PRINT"  [223][165][167]F3"
  311. 311 POKE53280,6:POKE53281,14:Z$(0)="    DATEI [146]   "
  312. 312 Z$(1)="   EDITOR    "
  313. 313 Z$(2)="  LOESCHEN   "
  314. 314 Z$(3)="    LADEN    "
  315. 315 Z$(4)="   AENDERN   "
  316. 316 Z$(5)="   SICHERN   "
  317. 317 Z$(6)="   DRUCKEN   "
  318. 318 Z$(7)="   BEENDEN   ":GOTO328
  319. 319 PRINTTAB(Z)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  320. 320 PRINTTAB(Z)"[180]             [170]"
  321. 321 PRINTTAB(Z)"[180]"Z$(0)"[170][144] [146]"
  322. 322 PRINTTAB(Z)"[180]             [170][144] [146]"
  323. 323 PRINTTAB(Z)"[180]"Z$(T)"[170][144] [146]"
  324. 324 PRINTTAB(Z)"[180]             [170][144] [146]"
  325. 325 PRINTTAB(Z)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][144] [146]"
  326. 326 PRINTTAB(Z)"[144]             [146]"
  327. 327 RETURN
  328. 328 POKE53265,PEEK(53265) OR16:Z=2:L=1:T=1
  329. 329 PRINT"":GOSUB319
  330. 330 GOTO334
  331. 331 T=T+1:Z=Z+3:L=L+2:IFZ<2THENZ=2:L=1:T=1
  332. 332 IFZ>20THENZ=20:L=13:T=T-1
  333. 333 PRINT"":FORX=1TOL:PRINT:NEXT:GOSUB319
  334. 334 FORX=55338TO55346STEP2:POKEX,1:POKEX,0:NEXT
  335. 335 FORX=55365TO55373STEP2:POKEX,1:POKEX,0:NEXT
  336. 336 GETEG$:IFEG$=""THENGOTO334
  337. 337 IFEG$=""THENPRINT"":GOTO328
  338. 338 IFASC(EG$)=133THENGOTO331
  339. 339 IFASC(EG$)=134THENZ=Z-6:L=L-4:T=T-2:GOTO331
  340. 340 IFASC(EG$)=13THENGOTO342
  341. 341 GOTO334
  342. 342 PRINT"[147]"CHR$(14):POKE53280,12:POKE53281,0
  343. 343 IF(T=1 ANDKR<1)THENGOTO521
  344. 344 IFT=2THENGOTO182:REM LOESCHEN
  345. 345 IF(T=3 ANDCP=0)THENGOTO275:REM LADEN
  346. 346 IFT=4THENX=N:AB=X:AC=N:PRINT"[144]":SYS49152:GOTO 434
  347. 347 IFT=5THENA$(N+1)="***":GOTO252:REM SICHERN
  348. 348 IFT=6THENGOTO352:REM DRUCKEN
  349. 349 IFT=7THENPRINT"[147]":END:REM ENDE
  350. 350 IF(T=1 ANDKR=1)THENPRINT"[144]":SYS49152:GOTO48
  351. 351 GOTO302
  352. 352 REM *****DRUCKEN*****
  353. 353 POKE53265,PEEK(53265) AND239:PRINT"[147]"CHR$(14):POKE53280,9:POKE53281,0
  354. 354 XC=0:PRINT"                [196]RUCKEN"
  355. 355 PRINT"                -------"
  356. 356 PRINT"     [193]USDRUCKEN ALLER [211]EITEN    [193] [146]"
  357. 357 PRINT"     [193]USDRUCK EINER [211]EITE       [197] [146]":POKE53265,PEEK(53265) OR16
  358. 358 GET Y$:IFY$=""THEN358
  359. 359 IFY$="A"THENGOTO362
  360. 360 IFY$="E"THENGOTO399
  361. 361 GOTO358
  362. 362 PRINT"[150] [193] [146]"
  363. 363 OPEN1,4
  364. 364 PRINT#1,CHR$(13)
  365. 365 CLOSE1:POKE198,0
  366. 366 IF(ST AND -128)<>0THENPRINT"[150]        [196]RUCKER ANSCHALTEN [146]         [152]"
  367. 367 IF(ST AND-128)<>0THENPRINT"        < [212]ASTE DRUECKEN >":WAIT198,1:GOTO352
  368. 368 :
  369. 369 PRINT"     [196]RUCKE [211]EITE [206]R.                 "
  370. 370 PRINT"     [193]BBRUCH                   [150] [197] [146]"
  371. 371 PRINT"     [196]RUCKEN                   [150] [196] [146]"
  372. 372 GETQ$:IFQ$=""THEN372
  373. 373 IFQ$="E"THENCLOSE4:GOTO301
  374. 374 IFQ$="D"THEN376
  375. 375 GOTO372
  376. 376 PRINT"     [196]RUCKE [211]EITE [206]R.                 "
  377. 377 XC=XC+1:POKE198,0
  378. 378 PRINT"[153] [157]"XC"[157] [146]"
  379. 379 OPEN4,4,7
  380. 380 FORX=XC*60-59TOXC*60:G$=LEFT$(A$(X),1)
  381. 381 IFX=178THENGOTO398
  382. 382 IFG$="@"THENGOSUB501:G$=LEFT$(A$(X),1)
  383. 383 IFG$="?"THENGOSUB503:G$=LEFT$(A$(X),1)
  384. 384 IFG$="[163]"THENGOSUB505:G$=LEFT$(A$(X),1)
  385. 385 IFG$="[166]"THENGOSUB507:G$=LEFT$(A$(X),1)
  386. 386 IFG$="[223]"THENGOSUB509:G$=LEFT$(A$(X),1)
  387. 387 IFG$="[169]"THENGOSUB511:G$=LEFT$(A$(X),1)
  388. 388 IFG$="%"THENGOSUB513:G$=LEFT$(A$(X),1)
  389. 389 IFG$="&"THENGOSUB515:G$=LEFT$(A$(X),1)
  390. 390 IFG$="_"THENGOSUB517:G$=LEFT$(A$(X),1)
  391. 391 IFG$="^"THENGOSUB519:GOTO393
  392. 392 IFGR=0THENPRINT#4
  393. 393 REM IFF=3THENA$(X)=RIGHT$(A$(X),LEN(A$(X))-1)
  394. 394 PRINT#4,A$(X):NEXT
  395. 395 IFPEEK(198)>0THENCLOSE4:GOTO301
  396. 396 IFXC=5THENCLOSE4:GOTO301
  397. 397 PRINT"[158]     [211]EITE GEDRUCKT   "
  398. 398 CLOSE4:GOTO372
  399. 399 PRINT"[150] [197] [146]":XC=1
  400. 400 OPEN1,4
  401. 401 PRINT#1,CHR$(13)
  402. 402 CLOSE1:POKE198,0
  403. 403 IF(ST AND -128)<>0THENPRINT"[150]        [196]RUCKER ANSCHALTEN [146]         [152]"
  404. 404 IF(ST AND-128)<>0THENPRINT"        < [212]ASTE DRUECKEN >":WAIT198,1:GOTO352
  405. 405 INPUT"     [215]ELCHE [211]EITE DRUCKEN        1[157][157][157]";XC:IFXC=0THEN301
  406. 406 IFXC=0THENCLOSE4:GOTO301
  407. 407 PRINT"     [196]RUCKE [211]EITE [206]R.                 "
  408. 408 PRINT"     [193]BBRUCH                   [150] [197] [146]"
  409. 409 PRINT"     [196]RUCKEN                   [150] [196] [146]"
  410. 410 GETQ$:IFQ$=""THEN410
  411. 411 IFQ$="E"THENCLOSE4:PRINT"[147]":GOTO301
  412. 412 IFQ$="D"THEN414
  413. 413 GOTO410
  414. 414 POKE198,0
  415. 415 PRINT"[150] [157]"XC"[157] [146]"
  416. 416 OPEN4,4,7
  417. 417 FORX=XC*60-59TOXC*60
  418. 418 FORX=XC*60-59TOXC*60
  419. 419 G$=LEFT$(A$(X),1)
  420. 420 IFG$="@"THENGOSUB501:G$=LEFT$(A$(X),1)
  421. 421 IFG$="?"THENGOSUB503:G$=LEFT$(A$(X),1)
  422. 422 IFG$="[163]"THENGOSUB505:G$=LEFT$(A$(X),1)
  423. 423 IFG$="[166]"THENGOSUB507:G$=LEFT$(A$(X),1)
  424. 424 IFG$="[223]"THENGOSUB509:G$=LEFT$(A$(X),1)
  425. 425 IFG$="[169]"THENGOSUB511:G$=LEFT$(A$(X),1)
  426. 426 IFG$="%"THENGOSUB513:G$=LEFT$(A$(X),1)
  427. 427 IFG$="&"THENGOSUB515:G$=LEFT$(A$(X),1)
  428. 428 IFG$="_"THENGOSUB517:G$=LEFT$(A$(X),1)
  429. 429 IFG$="^"THENGOSUB519:GOTO431
  430. 430 IFGR=0THENPRINT#4
  431. 431 PRINT#4,A$(X):NEXT
  432. 432 IFPEEK(198)>0THENCLOSE4:GOTO352
  433. 433 CLOSE4:GOTO405
  434. 434 REM ***AENDERN***
  435. 435 PRINTCHR$(147);CHR$(14):ZZ=0:CD=0:CE=0:CF=0:UI=0:KP=0
  436. 436 PRINT"[147][155]     [198]1 - [196] A T E I  [221]   [198]3 - [197]INFUE"
  437. 437 PRINT"[145]"TAB(36)"GEN  [221]   [198]5 - [197]NTFERNEN  [221]   [198]2 - [200]ILFE     [146]"
  438. 438 FORLF=1TO15
  439. 439 FORG=1TO20
  440. 440 PRINTA$(G+ZZ)
  441. 441 NEXTG:IFKP=1THENPRINT""
  442. 442 ZZ=ZZ+20:KP=1
  443. 443 REM * * * * * * * * * * * * * *
  444. 444 PRINT""
  445. 445 PRINT"[155][175][157]";
  446. 446 CD=CD+1
  447. 447 IFCD=21THENCF=CF+20:CD=0:NEXT
  448. 448 GETW$:IFW$=""THEN448
  449. 449 IFW$=""THENZZ=ZZ-20:CD=0:PRINT"[147]":GOTO439
  450. 450 CE=CE+1
  451. 451 IFCE>LEN(A$(CD+CF))THENA$(CD+CF)=A$(CD+CF)+" "
  452. 452 IFW$=""THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
  453. 453 IFW$="[145]"THENPRINTMID$(A$(CD+CF),CE,1)"[145][145]":CE=0:CD=CD-2:GOTO445
  454. 454 IFW$=""THENW$=MID$(A$(CD+CF),CE,1)
  455. 455 IFW$="[157]"THENPRINTMID$(A$(CD+CF),CE,1)"[157][157][175][157]";:CE=CE-2:GOTO448
  456. 456 IF ASC(W$)=134THENGOTO473
  457. 457 IF ASC(W$)=135THENGOTO488
  458. 458 :
  459. 459 IF ASC(W$)=137THENUI=3:GOTO225
  460. 460 IF ASC(W$)=138THENGOTO531
  461. 461 IF ASC(W$)=139THENGOTO538
  462. 462 IF ASC(W$)=13THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
  463. 463 IF ASC(W$)=133THENGOTO301
  464. 464 IFCE=79THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
  465. 465 PRINTW$"[175][157]";
  466. 466 IFCE=1THENA$(CD+CF)=W$+RIGHT$(A$(CD+CF),LEN(A$(CD+CF))-1):GOTO448
  467. 467 HJ=CD+CF:KL$=""
  468. 468 KL$=LEFT$(A$(HJ),CE-1)
  469. 469 KL$=KL$+W$
  470. 470 KL$=KL$+RIGHT$(A$(HJ),LEN(A$(HJ))-CE)
  471. 471 A$(HJ)=KL$
  472. 472 GOTO448
  473. 473 AC=AC+1:REM ZEILE EINFUEGEN
  474. 474 IFCD+CF<59THENGOTO479
  475. 475 IFCD+CF<118THENGOTO482
  476. 476 IFCD+CF<177THENGOTO485
  477. 477 IFCD+CF<236THENGOTO1921
  478. 478 IFCD+CF<295THENGOTO1936
  479. 479 FORX=59TOCD+CFSTEP-1
  480. 480 A$(X)=A$(X-1):NEXT
  481. 481 GOTO434
  482. 482 FORX=118TOCD+CFSTEP-1
  483. 483 A$(X)=A$(X-1):NEXT
  484. 484 GOTO434
  485. 485 FORX=177TOCD+CFSTEP-1
  486. 486 A$(X)=A$(X-1):NEXT
  487. 487 GOTO434
  488. 488 AC=AC-1:REM ZEILE ENTFERNEN
  489. 489 IFCD+CF<59THENGOTO492
  490. 490 IFCD+CF<118THENGOTO495
  491. 491 IFCD+CF<177THENGOTO498
  492. 492 FORX=CD+CFTO59
  493. 493 A$(X)=A$(X+1):NEXT
  494. 494 GOTO434
  495. 495 FORX=CD+CFTO118
  496. 496 A$(X)=A$(X+1):NEXT
  497. 497 GOTO434
  498. 498 FORX=CD+CFTO176
  499. 499 A$(X)=A$(X+1):NEXT
  500. 500 GOTO434
  501. 501 PRINT#4,CHR$(14);:A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=3
  502. 502 RETURN
  503. 503 PRINT#4,CHR$(15);:A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0
  504. 504 RETURN
  505. 505 PRINT#4,CHR$(27);CHR$(45);CHR$(49);
  506. 506 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  507. 507 PRINT#4,CHR$(27);CHR$(45);CHR$(48);
  508. 508 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  509. 509 PRINT#4,CHR$(27);CHR$(69);
  510. 510 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  511. 511 PRINT#4,CHR$(27);CHR$(70);
  512. 512 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  513. 513 PRINT#4,CHR$(31);
  514. 514 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  515. 515 PRINT#4,CHR$(159);
  516. 516 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  517. 517 PRINT#4,CHR$(27);CHR$(83);CHR$(49);
  518. 518 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  519. 519 PRINT#4,CHR$(27);CHR$(84);
  520. 520 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
  521. 521 PRINT"[147]           "
  522. 522 PRINT" [196]ATEINAME "
  523. 523 PRINT"           [146]"
  524. 524 L=13:JK$="":PRINT""TAB(L+1)"[164]":GOTO526
  525. 525 PRINT""TAB(L)JK$"[164]":JK$=""
  526. 526 GETJK$:IFJK$=""THEN526
  527. 527 L=L+1:IFL>29THENL=29
  528. 528 IFJK$=CHR$(13)THENKR=1:PRINT"[144][147]":SYS49152:GOTO35
  529. 529 LF$=LF$+JK$
  530. 530 GOTO525
  531. 531 REM TEXT -->
  532. 532 FORX=1TOE
  533. 533 LU=LEN(A$(X)):IFLU<2THENGOTO536
  534. 534 IFLU>79THENGOTO536
  535. 535 A$(X)=" "+A$(X)
  536. 536 NEXT
  537. 537 GOTO434
  538. 538 REM TEXT <--
  539. 539 FORX=1TOE
  540. 540 LU=LEN(A$(X)):IFLU<2THENGOTO543
  541. 541 IF LEFT$(A$(X),1)<>CHR$(32)THENGOTO543
  542. 542 A$(X)=RIGHT$(A$(X),LU-1)
  543. 543 NEXT
  544. 544 GOTO434
  545. 545 IFTY=1THENLF$=""
  546. 546 IFTY>1THENLF$=LEFT$(LF$,(LEN(LF$)-4))
  547. 547 PRINTCHR$(147):PRINT"[147][153][196]ISKETTENINHALT:"
  548. 548 PRINT"---------------":PRINT"[155]":BA$="":BB$="":CC$="":CC=0
  549. 549 OPEN1,8,0,"$0"
  550. 550 GET#1,BA$:GET#1,BB$
  551. 551 GET#1,BA$:GET#1,BB$
  552. 552 GET#1,BA$:GET#1,BB$
  553. 553 IFBA$<>""THENCC=ASC(BA$)
  554. 554 IFBB$<>""THENCC=CC+ASC(BB$)*256
  555. 555 PRINT"[152]"MID$(STR$(CC),2);TAB(8);
  556. 556 GET#1,BB$:IFST<>0THEN564
  557. 557 IFBB$<>CHR$(34)THEN556
  558. 558 GET#1,BB$:IFBB$<>CHR$(34)THENPRINTBB$;:GOTO558
  559. 559 GET#1,BB$:IFBB$=CHR$(32)THEN559
  560. 560 PRINTTAB(30);:CC$=""
  561. 561 CC$=CC$+BB$:GET#1,BB$:IFBB$<>""THEN561
  562. 562 PRINT"["LEFT$(CC$,3)"]"
  563. 563 IFST=0THEN551
  564. 564 PRINT"[158][194][204][207][195][203][211] [198][210][197][197]":CLOSE1
  565. 565 POKE198,0:WAIT198,1:POKE198,0
  566. 566 GOTO275
  567. 567 :
  568. 568 PRINT"[147]                        [155] [201]M [211]PEICHER  [146][154]"
  569. 569 FORX=1TO13:PRINT"                                      [146]":NEXT
  570. 570 PRINT""
  571. 571 FORX=1TO10:PRINTTAB(25)""KF$(X):NEXT
  572. 572 RETURN
  573.